home *** CD-ROM | disk | FTP | other *** search
/ Joystick Magazine 1999 November / cd joystick no109 novembre 1999.iso / Data / sharewares / utilitaires / XQXSET50.ZIP / _SETUP.1 / XQ WinNT Popup Options 1.xpl < prev    next >
Text File  |  1999-06-13  |  2KB  |  67 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 3.1"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH"="Appearance\Misc"
  5. "NAME"="Pop-Up messages"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Suppress all pop-ups (if supported)"
  8. "TEXT 2"="Suppress all pop-ups on login"
  9. "DESCRIPTION 1"="If the first option is activated, Windows will never again display any pop-ups. Instead, these messages are written to the event log."
  10. "DESCRIPTION 2"="If the second option is activated, Windows will only suppress pop-ups during the login proccess. After login, all messages appear as usuall."
  11. "AUTHOR"="Xteq Systems"
  12. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  13. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  14. "COMMENT 2"="Version 1.1"
  15.  
  16.  
  17.  
  18. sp="HKLM\System\CurrentControlSet\Control\Windows\"
  19. sV1="ErrorMode"
  20. sV2="NoPopUpsOnBoot"
  21.  
  22. Sub Plugin_Initialize 
  23.  If GetWinVer=2 then
  24.   i=RegReadValue(sP&sV1)
  25.  
  26.   if i=1 or i=2 then
  27.      Call SetUIElement(1,true)
  28.   end if
  29.  
  30.   i=RegReadValue(sP&sV2)
  31.   if i=1 then
  32.      Call SetUIElement(2,true)
  33.   end if
  34.  else
  35.   Disable
  36.  end if
  37.  
  38. End Sub
  39.  
  40. Sub Plugin_CheckData(ElementIndex)
  41. End Sub
  42.  
  43. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  44.  b=GetUIElement(1)
  45.  if b=true then
  46.    Call RegWriteValue(sP&sV1,"2",1)
  47.  else
  48.    Call RegWriteValue(sP&sV1,"0",1)
  49.  end if
  50.  
  51.  b=GetUIElement(2)
  52.  if b=true then
  53.    Call RegWriteValue(sP&sV2,"1",1)
  54.  else
  55.    Call RegWriteValue(sP&sV2,"0",1)
  56.  end if
  57.  
  58.  Restart
  59. End Sub
  60.  
  61.  
  62. Sub Plugin_Terminate 
  63. End Sub
  64.  
  65.  
  66.  
  67.